home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / fpkpas92.zip / SRCRTL.ZIP / RTL / DOS / MODES.INC < prev    next >
Text File  |  1997-07-01  |  808b  |  34 lines
  1. {****************************************************************************
  2.  
  3.                         FPKPascal Runtime-Library
  4.                           Copyright (c) 1994,96 by
  5.                              Florian Klaempfl
  6.  
  7.  ****************************************************************************}
  8.  
  9.     function getscreenmode : byte;
  10.     
  11.       begin
  12.          dosmemget($40,$49,getscreenmode,1);
  13.       end;
  14.       
  15.     procedure setscreenmode(mode : byte);
  16.     
  17.      var regs : trealregs;
  18.  
  19.       begin
  20. {$ifdef GO32V2}
  21.          regs.realeax:=mode;
  22.          realintr($10,regs);
  23. {$else GO32V2}
  24.          asm
  25.             movb 8(%ebp),%al
  26.             xorb %ah,%ah
  27.             pushl %ebp
  28.             int $0x10
  29.             popl %ebp
  30.          end;
  31. {$endif GO32V2}
  32.       end;
  33.  
  34.